Code
customer_cohortdata_tbl <- read_rds("data/longsynth_customer_cohort_data_tbl.rds")
customer_cohortdata_tbl |> glimpse()Rows: 5,000
Columns: 5
$ customer_id <chr> "LFC201001_0001", "LFC201001_0002", "LFC201001_0003", …
$ cohort_qtr <chr> "2010 Q1", "2010 Q1", "2010 Q1", "2010 Q1", "2010 Q1",…
$ cohort_ym <chr> "2010 01", "2010 01", "2010 01", "2010 01", "2010 01",…
$ first_tnx_date <dttm> 2010-01-01 16:16:30, 2010-01-03 16:32:54, 2010-01-04 …
$ total_tnx_count <int> 12, 1, 1, 2, 2, 3, 2, 7, 5, 5, 4, 8, 1, 1, 1, 31, 1, 1…
Code
customer_transactions_tbl <- read_rds("data/longsynth_transaction_data_tbl.rds")
customer_transactions_tbl |> glimpse()Rows: 42,244
Columns: 7
$ customer_id <fct> LFC201001_0001, LFC201001_0002, LFC201001_0003, LFC20100…
$ tnx_timestamp <dttm> 2010-01-01 16:16:30, 2010-01-03 16:32:54, 2010-01-04 22…
$ tnx_dow <fct> Fri, Sun, Mon, Tue, Wed, Thu, Sun, Sun, Mon, Mon, Tue, W…
$ tnx_month <fct> Jan, Jan, Jan, Jan, Jan, Jan, Jan, Jan, Jan, Jan, Jan, J…
$ tnx_week <chr> "00", "00", "01", "01", "01", "01", "01", "01", "02", "0…
$ invoice_id <chr> "T20100101-0001", "T20100103-0001", "T20100104-0001", "T…
$ tnx_amount <dbl> 160.87, 1.30, 96.11, 813.07, 85.58, 35.07, 12.23, 70.48,…
Code
customer_subset_id <- read_rds("data/longsynth_customer_subset_ids.rds")
customer_subset_id |> glimpse() Factor w/ 5000 levels "LFC201001_0001",..: 2 8 10 14 16 17 27 30 33 35 ...